set fileid [open "c:\\webaccess\\txt\\tclSQL.csv" a+]
seek $fileid 0 start

puts $fileid "Date, Time, VAR1, VAR2"

for {set i 0} {$i<=999} {incr i} {
puts $fileid "[GETVAL array1($i)],[GETVAL array2($i)],[GETVAL array3($i)],[GETVAL array4($i)]"
}

close $fileid

SETVAL SQLSTATE=SAVE